home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Xor4.AMOS / Xor4.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  903 b   |  39 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10.  
  11. Screen Open 1,320,256,2,Lowres : Flash Off : Curs Off 
  12. Circle 16,16,15 : Paint 16,16
  13.  
  14. Ink 0
  15. Circle 11,12,2
  16. Paint 11,12
  17. Circle 21,12,2
  18. Paint 21,12
  19. Circle 16,23,4
  20. Paint 16,23
  21.  
  22. Screen Open 0,320,256,2,Lowres : Flash Off : Curs Off : Hide 
  23. Double Buffer : Autoback 0
  24. Palette ,$FF0
  25.  
  26. Do 
  27.  
  28.    For C=0 To 80 Step 8
  29.       X=144+Sin(C*8-B*7)*(C+B/2)/2
  30.       Y=110+Cos(C*8+B*7)*(C+B/2)/2
  31.       Screen Copy 1,0,0,32,32 To 0,X,Y,%1100000
  32.    Next 
  33.    
  34.    Inc B
  35.    Screen Swap 
  36.    Wait Vbl 
  37.    Cls 
  38.  
  39. Loop